home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / invrmerg.arc / INVERT.BAS (.txt) next >
Encoding:
GW-BASIC  |  1984-07-02  |  384 b   |  16 lines
  1. 10  DEF SEG=&H1700:BLOAD"INVERT.BLD",0
  2. 20  INVERT=0
  3. 25  CLS:PRINT"HIGH RESOLUTION...":A$=INPUT$(1)
  4. 30  SCREEN 2:CLS:KEY OFF
  5. 40  DEF SEG=&HB800:BLOAD"A:IMPRESS.IMG",0:DEF SEG=&H1700
  6. 50  CALL INVERT
  7. 60  A$=INPUT$(1)
  8. 70  CLS
  9. 80  PRINT"MEDIUM RESOLUTION...":A$=INPUT$(1)
  10. 90  SCREEN 1:CLS
  11. 100  DEF SEG=&HB800:BLOAD"A:PICTURE1.IMG",0
  12. 110  DEF SEG=&H1700
  13. 120  CALL INVERT
  14. 130  A$=INPUT$(1)
  15. 140  END
  16.